home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ COM Options 1.xpl < prev    next >
Text File  |  1999-09-05  |  2KB  |  91 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Hardware\Modem"
  5. "NAME"="COM Port Speed"
  6. "VERSION"="2.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Speed up COM1:"
  9. "TEXT 2"="Speed up COM2:"
  10. "TEXT 3"="Speed up COM3:"
  11. "TEXT 4"="Speed up COM4:"
  12. "DESCRIPTION 1"="By default, Windows only allows 9600 bytes on every serial port."
  13. "DESCRIPTION 2"="These settings simply tell the computer to allow speeds over 9600 bytes per second with Internet connections."
  14. "DESCRIPTION 3"="This speeds up downloads and file transfers, etc. and can make the Internet a lot faster."
  15. "AUTHOR"="Xteq Systems"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  18. "COMMENT 2"=" "
  19. "COMMENT 3"="Thanks to AXCEL216 (http://members.aol.com/axcel216/) and CptSiskoX (http://sites.netscape.com/computingx/)!"
  20.  
  21.  
  22. sFile="WIN.INI"
  23. sReg="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Ports\"
  24.  
  25. sSec="Ports"
  26. sTa="COM"
  27. sTb=":"
  28.  
  29. '*DEFAULT*
  30. sV_Normal="9600,n,8,1,x"
  31. '*BETTER*
  32. sV_Better="921600,n,8,1,p"
  33.  
  34. bIniMode=true
  35.  
  36.  
  37. Sub Plugin_Initialize  
  38.  if GetWinVer=1 or GetWinVer=3 then
  39.     bIniMode=true
  40.  else
  41.     bIniMode=false
  42.  end if
  43.  
  44.  
  45.  for i=1 to 4
  46.      s=sTa & i & sTb 
  47.      
  48.      if bIniMode then
  49.         s=IniReadValue(sFILE,sSec,s)
  50.      else
  51.         s=RegReadValue(sReg & s)
  52.      end if 
  53.  
  54.  
  55.      if s=sV_Better then
  56.         SetUIElement i,true
  57.      end if 
  58.  next 
  59.  
  60. End Sub
  61.  
  62. Sub Plugin_CheckData(ElementIndex)
  63. End Sub
  64.  
  65. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  66.  for i=1 to 4
  67.      b=GetUIElement(i)
  68.      s=sTa & i & sTb 
  69.     
  70.      if b=true then
  71.         sTemp=sV_Better
  72.      else
  73.         sTemp=sV_Normal
  74.      end if
  75.  
  76.  
  77.      if bIniMode then
  78.         Call IniWriteValue(sFILE,sSec,s,sTemp) 
  79.      else
  80.         Call RegWriteValue(sReg & s,sTemp,1)
  81.      end if
  82.  next 
  83.  
  84.  
  85.  
  86.  Call Logoff()
  87. End Sub
  88.  
  89. Sub Plugin_Terminate 
  90. End Sub
  91.